home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / online / motor.EXE / TABY.PAS < prev    next >
Pascal/Delphi Source File  |  1991-10-05  |  2KB  |  62 lines
  1. begin
  2. write('ѥ');
  3. end.
  4. ,D4,D5 :FILE;
  5.    f1,f2,f3,f4,F5,F6 :text;
  6.    str2,str1   :string[11];
  7.    STR3,STR4   :STRING[10];
  8.    STR5        :STRING[4];
  9.    STR6        :STRING[6];
  10.    ST1         :STRING[80];
  11.    x1,x2,x3,x4,x5,S,i :longint;
  12.    y1,y2,y3,y4 :real;
  13.    label 10,20,30;
  14.          BEGIN
  15.          ASSIGN(F6,'MOM.MNU');APPEND(F6);
  16.          WRITELN(F6,'[TABY]^C^C(COMMAND "DXFIN" "TABY")');
  17.          CLOSE(F6);
  18.                begin;
  19.                assign(f1,'mom2.dat');reset(f1);
  20.                assign(f2,'tabY.dxf');rewrite(f2);
  21.                writeln(f2,'  0');
  22.                writeln(f2,'SECTION');
  23.                WRITELN(F2,'  2');
  24.                WRITELN(F2,'ENTITIES');
  25.                WRITELN(F2,'  0');
  26.                while not eof(f1) do
  27.                begin;
  28.                readln(f1,X3,x1,x2,y1,Y2);
  29.                writeln(f2,'TEXT');
  30.                WRITELN(F2,'  8');
  31.                WRITELN(F2,'0');
  32.                WRITELN(F2,' 10');
  33.                WRITELN(F2,x1);
  34.                WRITELN(F2,' 20');
  35.                WRITELN(F2,X2);
  36.                WRITELN(F2,' 40');
  37.                WRITELN(F2,'10');
  38.                WRITELN(F2,'  1');
  39.                WRITELN(F2,ROUND(Y2*100));
  40.                WRITELN(F2,' 50');
  41.                WRITELN(F2,'90');
  42.                writeln(f2,'  0');
  43.                end;
  44.                WRITELN(F2,'ENDSEC');
  45.                WRITELN(F2,'  0');
  46.                WRITELN(F2,'EOF');
  47.              CLOSE(F1);CLOSE(F2);
  48.              END;
  49.            end.
  50.  
  51.  
  52. uses crt;
  53. var
  54.    D1,D2,D3,D4,D5 :FILE;
  55.    f1,f2,f3,f4,F5,F6 :text;
  56.    str2,str1   :string[11];
  57.    STR3,STR4   :STRING[10];
  58.    STR5        :STRING[4];
  59.    STR6        :STRING[6];
  60.    ST1         :STRING[80];
  61.    x1,x2,x3,x4,x5,S,i :longint;
  62.    y1,y2,